home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / systems / emulate / cpm / movata.asm < prev    next >
Assembly Source File  |  1995-11-25  |  2KB  |  109 lines
  1. ;********************************************************************
  2. ;*                                    *
  3. ;*    >>>>>>> S o f t D e s i g n <<<<<<<        17.1.86        *
  4. ;*                                    *
  5. ;* moveit 3.0 patch for atari 520 st  via modem port                *
  6. ;* patch space 0100h - 02ffh    all registers may be used        *
  7. ;* use @ patmov submit command for patching                *
  8. ;*                                    *
  9. ;********************************************************************
  10.  
  11.  
  12.     .Z80
  13.     ASEG
  14.     ORG    0100H
  15.  
  16.  
  17.  
  18. INSTT    EQU    04H        ;virtual input status register
  19. OUTSTT    EQU    05H        ;virtual output status register
  20. INDAT    EQU    06H        ;virtual input data register
  21. OUTDAT    EQU    04H        ;virtual output data register
  22.  
  23.  
  24. MOVATA:    JP    0302H        ;start of moveit program
  25.     JP    4000H        ;end of user section
  26.     JP    INILIN        ;initialize communication line
  27.     JP    DEINIL        ;de-initialize communication line
  28.     JP    RXSTAT        ;comline input status
  29.     JP    RXDATA        ;comline data input
  30.     JP    TXSTAT        ;comline output status
  31.     JP    TXDATA        ;comline output data
  32.     JP    SIGNON        ;pointer to configuration message
  33.     JP    DIAL        ;auto dial/answer support
  34.  
  35.  
  36.  
  37. ;user configuration message
  38.  
  39. SIGNON: DB     09H, 09H, ' Atari 520 ST under SoftDesign CPMZ80 Emulator'
  40.     DB     0DH, 0AH, 0AH, '$'
  41.  
  42.  
  43.  
  44. ;initialize communication line
  45. ;no entry or return parameters
  46.  
  47. INILIN:    CALL    RXSTAT        ;delete
  48.     OR    A        ;all characters
  49.     JR    Z,INIXIT    ;in 
  50.     CALL    RXDATA        ;serial
  51.     JR    INILIN        ;input queue.
  52.  
  53. INIXIT:    RET
  54.  
  55.  
  56.  
  57. ;de-initialize communication line
  58. ;no entry or return parameters
  59.  
  60. DEINIL: RET
  61.  
  62.  
  63.  
  64. ;communication line input status
  65. ;return status in <a> = ff if character ready, 00 if not
  66.  
  67. RXSTAT: IN    A,(INSTT)
  68.     RET
  69.  
  70.  
  71.  
  72. ;communication line data input
  73. ;return input character in <a>
  74.  
  75. RXDATA: IN    A,(INDAT)
  76.     RET
  77.  
  78.  
  79.  
  80. ;communication line output status
  81. ;output character in <a> on entry
  82.  
  83. TXSTAT:    IN    A,(OUTSTT)
  84.     RET
  85.  
  86.  
  87.  
  88. ;communication line data output
  89. ;output character in <a> on entry
  90. ;<a> must remain unchanged !
  91.  
  92. TXDATA: OUT    (OUTDAT),A
  93.     RET
  94.  
  95.  
  96.  
  97. ;auto dial/answer support
  98. ;if <b>=0 on entry, dial the dialing string pointed to by <hl>
  99. ;if <b>=1 on entry, hang up
  100. ;if <b>=2 on entry, auto answer
  101.  
  102. DIAL:    RET
  103.  
  104.  
  105. FILLER:    DS    MOVATA+0200H-$
  106.  
  107.  
  108.     END
  109. ə